home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 209 / 209.d81 / start address fi (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  538b  |  16 lines
  1. 5 poke53280,.:poke53281,.
  2. 10 rem start address finder - k.carroll
  3. 15 print"[147][154]           start address finder"
  4. 16 print"              by k. carroll":poke198,.
  5. 20 input"[154]enter filename";f$
  6. 30 open 2,8,2,f$:get#2,a$,b$:close2
  7. 40 print"[154]start address:";
  8. 50 c$=chr$(0):print asc(a$+c$)+256*asc(b$+c$)
  9. 60 print" [154]would you like to find another? (y[154]/n[154])"
  10. 70 a=peek(203):ifa<>25anda<>39then70
  11. 80 ifa=25thenrun
  12. 85 d=peek(186):ifd<8thend=8
  13. 90 print"[147][144]load"chr$(34)"b.tips and trick"chr$(34)","d
  14. 92 print"run":poke631,13:poke632,13:poke198,2:end
  15. 10000 d=peek(186):n$="start address fi":open15,d,15,"s0:"+n$:close15:saven$,d:end
  16.